NEG a,b,c
a:=-a b:=-b c:=-c
NEG a // is the same as a:=-a NOT a // is the same as a:=~a INC a // is the same as ++a DEC a // is the same as --a
DEF a:PTR TO obj,b=20,c=3,d:PTR TO DOUBLE NEW a // equals to IF (a:=AllocVec(SIZEOF_obj,MEMF_PUBLIC|MEMF_CLEAR))=NIL THEN Raise("MEM") NEW a[10] // equals to IF (a:=AllocVec(10*SIZEOF_obj,MEMF_PUBLIC|MEMF_CLEAR))=NIL THEN Raise("MEM") NEW a[b*c+2] // equals to IF (a:=AllocVec((b*c+2)*SIZEOF_obj,MEMF_PUBLIC|MEMF_CLEAR))=NIL THEN Raise("MEM") NEW d[10] // equals to IF (d:=AllocVec(10*SIZEOF_DOUBLE,MEMF_PUBLIC|MEMF_CLEAR))=NIL THEN Raise("MEM")
NEW d[4],a[b]
NEW d[4],a[b] ... END a,d